home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / spramycs 2.3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  108 lines
  1. 0 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 1 [143]"(NULL)      -spramycs-      (NULL)
  3. 2 rem"[221]         v2.3         [221]
  4. 3 [143]"(NULL)von bernhard jerabek  (NULL)
  5. 4 rem"[221]    tiergartenring 308[221]
  6. 5 [143]"(NULL)    a-5081 anif       (NULL)
  7. 6 rem"[221]    oesterreich       [221]
  8. 7 [143]"(NULL)tel:0043-6246/36303   (NULL)
  9. 8 rem"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  10. 9 [153]"load(NULL)oment...":[129]a[178]16443[164]17102:[153]""a:[135]b:[151]a,b:c[178]c[170]b:[130]
  11. 10 [153]""c:[139]c[179][177]71903[167][153]"ascehler in den str$atenwait":[128]
  12. 11 ea[178]17615:[151]251,(ea[175]255):[151]252,[181](ea[173]256):[151]650,128
  13. 12 [151]53280,6:[151]53281,6:[153][199](14);"loadsys(NULL)pramycs openvon peekernhard mid$erabek
  14. 20 print"[155]-1- [212]ext editieren
  15. 30 [153]"-2- (NULL)aufschrift starten
  16. 40 print"-3- [204]aufschrift stoppen
  17. 50 [153]"-4- (NULL)aechste (NULL)extseite
  18. 60 print"-5- [214]orige [212]extseite
  19. 70 [153]"-6- (NULL)osition/chr$eschwindigkeit/str$ichte
  20. 80 print"-7- [212]extspeicher loeschen
  21. 90 [153]"-8- (NULL)eichensatzadresse
  22. 100 print"-9- [198]arben aendern
  23. 110 [153]"-10-(NULL)aufschrift speichern
  24. 120 print"-0- [208]rogramm beenden
  25. 500 [133]a:[145]a[170]1[141]11000,1000,2000,3000,4000,5000,6000,7000,8000,9000,10000
  26. 510 [137]12
  27. 998 [128]
  28. 999 "tantantantantantantantantantantantantantantantantantantanedittantantantantantantantantantantan
  29. 1000 poke53280,0:sys16446:print"[147][212]ext mit normalem [194]ildschirmeditor ein-
  30. 1010 [153]"geben. (NULL)(NULL)(NULL)(NULL)right$lenleft$(NULL)! (NULL)icht mit dem lenursor
  31. 1020 print"aus dem [194]ildschirm fahren!
  32. 1030 [153]"valingabe mit <(NULL)val(NULL)(NULL)(NULL)(NULL)> beenden.
  33. 1040 print"-[212]aste-":wait198,1:poke198,0
  34. 1050 sys16452:poke19,1:input"";a$:poke19,0:sys16449:return
  35. 1999 "[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]on[192][192][192][192][192][192][192][192][192][192][192][192][192]
  36. 2000 [158]16443:[142]
  37. 2999 "tantantantantantantantantantantantantantantantantantanofftantantantantantantantantantantantan
  38. 3000 sys16446:return
  39. 3999 "[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]next[192][192][192][192][192][192][192][192][192][192][192]
  40. 4000 [158]16455:[151]252,[194](252)[170]2:[142]
  41. 4999 "tantantantantantantantantantantantantantantantantantanlasttantantantantantantantantantantan
  42. 5000 sys16458:poke252,peek(252)-2:return
  43. 5999 "[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]pos/speed/dicht[192]
  44. 6000 [153]"load(NULL)osition der (NULL)aufschrift "[194](16640);:[151]211,24:[158]58640
  45. 6010 [133]p:[139]p[179]50[176]p[177]251[167]6000
  46. 6020 [151]16640,p[175]255:[158]16443
  47. 6030 [153]"chr$eschwindigkeit "[194](16641);:[151]211,15:[158]58640
  48. 6040 [133]g:[151]16641,g[175]255
  49. 6050 [153]"str$ichte  "[181](8[173]g[170].5);:[151]211,7:[158]58640
  50. 6060 [133]d:[151]16642,d[175]255
  51. 6070 [142]
  52. 6999 "tantantantantantantantantantantantantantantantantantancleartantantantantantantantantantan
  53. 7000 sys16446:a$="":input"[147][212]extspeicher loeschen (j=ja)";a$:ifa$<>"j"then7002
  54. 7001 sys16461
  55. 7002 return
  56. 7999 "[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]char-adr[192][192][192][192][192][192][192]
  57. 8000 [153]"load(NULL)eichensatz-left$ipeekyte "[194](16643);:[151]211,18:[158]58640:[133]zs
  58. 8010 [151]16643,zs[175]255:[142]
  59. 8999 "tantantantantantantantantantantantantantantantantantancolorstantantantantantantantantan
  60. 9000 print"[147]";:fora=0to7
  61. 9010 print"[198]arbe"apeek(16644+a);:poke211,7:sys58640:inputf:poke16644+a,fand255
  62. 9020 next:return
  63. 9999 "[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]save[192][192][192][192][192][192][192][192][192][192][192]
  64. 10000 [158]16446:[151]253,[194](45):[151]254,[194](46)
  65. 10010 [151]43,0:[151]44,65:[151]45,[194](251):[151]46,[194](252):[156]
  66. 10020 [133]"loadascilename";f$:[139]f$[178]""[167]10060
  67. 10030 gn[178]8:[153]"str$waitisk/(NULL)waitape?":[146]198,1:[161]a$:[139]a$[178]"t"[167]gn[178]1:[137]10050
  68. 10040 [159]1,8,15,"i":[160]1
  69. 10050 [148]f$,gn,1
  70. 10060 [151]43,1:[151]44,8:[151]45,[194](253):[151]46,[194](254)
  71. 10070 [137]510:[143] return wegen clr
  72. 10099 "tantantantantantantantantantantantantantantantantantanendtantantantantantantantantantantan
  73. 11000 clr:end
  74. 31999 "[192][192][192][192][192][192][192][192][192][192][192][192][192]maschinenprogramm[192][192]
  75. 32000 [131]76,18,65,76,155,66,76,116,64,76,140,64,76,164,64,76,201,64,76,80,64
  76. 32001 [131]120,165,1,72,169,49,133,1,162,2,160,0,169,32,153,207,66,200,208,250
  77. 32002 [131]238,96,64,202,208,240,169,66,141,96,64,104,133,1,88,96,32,237,64,160
  78. 32003 [131]0,185,0,4,153,207,66,185,0,5,153,207,67,200,208,241,134,1,88,96,32
  79. 32004 [131]237,64,160,0,185,207,66,153,0,4,185,207,67,153,0,5,136,208,241,134
  80. 32005 [131]1,88,96,173,126,64,24,105,2,141,126,64,141,147,64,141,96,64,141,107
  81. 32006 [131]64,24,105,1,141,132,64,141,153,64,173,38,66,24,105,2,141,38,66,96,169
  82. 32007 [131]56,141,167,64,141,194,64,169,233,141,168,64,141,195,64,32,164,64,169
  83. 32008 [131]24,141,167,64,141,194,64,169,105,141,168,64,141,195,64,96,120,166,1
  84. 32009 [131]169,49,133,1,169,160,160,41,153,0,6,136,16,250,96,0,151,1,8,216,6,14
  85. 32010 [131]3,13,1,13,3,14,76,18,65,76,155,66,120,160,0,152,153,0,62,153,0,63,153
  86. 32011 [131]248,61,136,208,244,169,207,133,9,169,66,133,10,169,0,133,168,141,255
  87. 32012 [131]63,141,28,208,141,14,220,169,255,141,21,208,141,29,208,141,23,208,169
  88. 32013 [131]193,141,16,208,169,1,141,26,208,169,145,141,20,3,169,65,141,21,3,173
  89. 32014 [131]0,65,141,18,208,173,17,208,41,127,141,17,208,160,15,24,173,0,65,105
  90. 32015 [131]1,153,0,208,136,185,190,66,153,0,208,136,16,238,160,248,152,153,0,7
  91. 32016 [131]200,208,249,160,0,185,4,65,153,39,208,200,192,8,208,245,88,96,173,17
  92. 32017 [131]208,170,41,247,141,17,208,160,16,136,16,253,165,0,160,20,189,255,255
  93. 32018 [131]189,255,255,165,0,206,22,208,238,22,208,173,18,208,56,233,1,41,7,9
  94. 32019 [131]24,141,17,208,136,208,226,142,17,208,173,25,208,141,25,208,172,206
  95. 32020 [131]66,136,208,21,172,39,208,162,0,189,40,208,157,39,208,232,224,7,208
  96. 32021 [131]245,140,46,208,160,3,140,206,66,172,205,66,200,204,2,65,208,65,120
  97. 32022 [131]166,1,169,49,133,1,169,0,133,170,164,168,177,9,160,3,10,38,170,136
  98. 32023 [131]208,250,133,169,165,170,24,109,3,65,133,170,160,7,177,169,153,248,61
  99. 32024 [131]136,16,248,230,168,208,13,165,10,24,105,1,201,68,208,2,169,66,133,10
  100. 32025 [131]134,1,88,160,0,140,205,66,173,1,65,72,162,21,160,7,185,248,61,10,153
  101. 32026 [131]248,61,62,200,63,62,199,63,62,198,63,62,136,63,62,135,63,62,134,63
  102. 32027 [131]62,72,63,62,71,63,62,70,63,62,8,63,62,7,63,62,6,63,62,200,62,62,199
  103. 32028 [131]62,62,198,62,62,136,62,62,135,62,62,134,62,62,72,62,62,71,62,62,70
  104. 32029 [131]62,62,8,62,62,7,62,62,6,62,202,202,202,136,16,171,104,56,233,1,208
  105. 32030 [131]160,76,49,234,120,169,49,141,20,3,169,234,141,21,3,160,1,140,14,220
  106. 32031 [131]136,140,26,208,140,21,208,169,200,141,22,208,169,27,141,17,208,88,96
  107. 32032 [131]240,0,40,0,88,0,136,0,184,0,232,0,24,0,72,0,3
  108.